home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_11_1986_Transactor_Publishing.d64
/
change unit addr
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
587b
|
16 lines
100 rem save"0:cua[160] (change)",8
110 rem ** jim butterfield - september 1981
120 rem ** for cbm disk drives 1540, 1541, 2031, 2040, 4040, 8050, 8250
130 print "old device number 8[157][157][157]";: input do
140 if do<8 or do>15 then 130
150 print "new device number 9[157][157][157]";: input dn
160 if dn<8 or dn>15 then 150
170 open 15,do,15: rem command channel
180 a$=chr$(do+32): b$=chr$(do+64): rem talk and listen current
190 read a: if a=0 then print "disk not recognized!";: goto 230
200 print#15,"m-r"chr$(a)chr$(0): get#15,x$: if x$<>a$ then 190
210 print#15,"m-r"chr$(a+1)chr$(0): get#15,x$: if x$<>b$ then 190
220 print#15,"m-w"chr$(a)chr$(0)chr$(2)chr$(dn+32)chr$(dn+64)
230 close15
240 data 12, 50, 119, 0